home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
H191.ZIP
/
CA29-3.EXE
/
GENIE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-10-25
|
2KB
|
63 lines
S0 = 4 ; The dialing directory entry # for GEnie
LEGEND " GEnie.CMD" ; Put script name on status bar...
;
; ----- GEnie: Dial GEnie by direct connect
; ----------------------------------------------------------------
; Note: You must edit the values above to reflect your call.
; Variable S0 determines the entry # being dialed
; ----------------------------------------------------------------
; Note: This script uses a LOGON file prepared by MKLOGON,
; if one is available.
; ----------------------------------------------------------------
; Note: This script is written to be FCALLed, executed directly (F2)
; or attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
; Note: This script requires no other script. It *does* require
; a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
; ----------------------------------------------------------------
; S0 is modified by this script.
; ----------------------------------------------------------------
;
; Don't allow this script to execute unmodified
;
IF STRCMP S1(0:3) "name"; It's unmodified
MESS "^L" ; Clear screen
MESS "You must edit your ID and password into GEnie.CMD"
MESS "before you execute it as a script... ^M^J"
EXIT
ENDIF
;
; Dial GEnie direct
;
LEGEND " Dialing GEnie direct"
IF NOT LINKED ; If not from alt-d
DIAL S0 ; Dial directory entry number set above
IF FAILED EXIT ; IF esc out
ENDIF ; End test if linked
;
; Set initial settings
;
SET BSUPPRESS ON ; Turn on blank line suppression
SET MASK ON ; Turn on high bit mask
SET CDISPLAY OFF ; Ctl char display
SET DUPLEX HALF ; Turn echo on
;
; Synchronize with their modem
;
PAUSE "3" ; Wait for the modem to settle down
TRANSMIT "hhh" ; Transmit
;
; Send name and password
;
WAITFOR "U#=" ; Wait for the 'USER ID' prompt
;
; If we have a GENLOGON file, use it
;
SET TTHRU OFF ; Let psw be typed
IF ISSCFILE "GENLOGON" FCALL "GENLOGON"
;
; Exit - this script may be fcalled
;
IF FCALLED FRETURN ; Return to caller if called
ALARM ; Otherwise, sound alarm - we're done